module Queue.ListQueue (Queue,
                  isEmpty,
                  empty,
                  add,
                  head,
                  tail) where

import Prelude hiding (head, tail)

type Queue a = [a]

empty = []

isEmpty [] = True
isEmpty _  = False

add q x = q ++ [x]

head (x:xs) = x

tail (_:xs) = xs
